Praca Domowa 2

Wstęp

W mojej pracy domowej postanowiłem poprawić wykres z podręcznika do historii “Historia. Po prostu” wspomniany w plebiscycie na najgorszy wykres roku 2019.

Wykres, o którym mowa:

Poprawiony wykres wraz z kodem go generującym

df %>% gather("Status", "Value", -year) %>% ggplot(aes(year, Value, fill = Status)) + 
  geom_col(width = 0.7, position = position_dodge(width=0.7)) +
  theme(axis.text.x = element_blank(), axis.ticks.x = element_blank())+
  scale_fill_manual(values = c("#f03b20", "#feb24c")) +
  geom_text(aes(y = Value+70, label = abs(Value))) +
  geom_text(aes(y=50, label = year), size = 3) +
  labs(title = "liczba bezrobotnych i zatrudnionych w latach 1929-36 w Polsce w tys.",
       x="rok", y="liczba [tys.]")+
  scale_y_continuous(expand = c(0,0), limits = c(0, 2600))

Dlaczego wykres jest lepszy:

Za główne problem wykresu w podręczniku uważam rozbieżność skali pomiędzy bezrobotnymi i zatrudnionymi, oraz brak proporcjonalności wysokości słupków do odpowiadających im wartości. Uznałem również, że są to statystyki które ludzie chętnie będą porównywać, dobrze by było więc ustawić je jeden obok drugiego (zamiast po dwóch stronach osi OX), aby łatwiej można było porównywać zatrudnienie i bezrobocie, nie musząc odczytywać konkretnych wartości z wykresu.